source(here::here("code/load.R"))

here("data/meta_analyses_raw/Ger2016/10.1111-puar.12433Figure124330003.xlsx") |>
  read_excel() |>
  mutate(meta_id = "Ger2016",
         subfield = "PA",
         question = "What impact do performance management systems have on performance
in public organizations?",
         subset = Topic,
         estimate = as.numeric(gsub(" \\(.*", "", ES_95ci)),
         conf.low = as.numeric(gsub(".*\\((.*),.*", "\\1", ES_95ci)),
         conf.high = as.numeric(gsub(".*,(.*)\\).*", "\\1", ES_95ci)),
         std.error = (conf.high - conf.low) / 3.92,
         study_id = Study,
         overall_effect = "no") |>
  select(meta_id,
         subfield,
         study_id,
         question,
         subset,
         estimate,
         std.error,
         overall_effect) |>
  write_csv(here("data/meta_analyses_clean/Ger2016.csv"))


